1 REMSAVE"BRIDGE.V3.3",8
2 GOTO400
56 REM==========ANY KEY-GET A$=========
57 :
58 X=13:Y=23:W$=" ANY KEY ":GOSUB66
59 :
60 REM============GET A$===========
61 :
62 GETA$:IFA$=""THEN 62:RETURN
63 :
64 REM=======PRINT AT=============
65 :
66 POKE783,PEEK(783)AND254:POKE782,X:POKE781,Y:SYS65520:PRINTW$
68 POKE783,PEEK(783)OR1:RETURN
106 :
107 REM =====DIM FOR DEAL======
109 :
111 NC=52:DIMS(NC),D$(14),VA$(13),P(13),H(4,13)
112 FORI=0TO3:READS$(I):READCO$(I):NEXT
113 FORI=0TO12:READVA$(I):READP(I):NEXT
115 DATA"[216]","[144]","[218]","","[211]","","[193]","[144]",2,0,3,0,4,0,5,0,6,0,7,0,8,0,9,0,10,0
116 DATAJ,1,Q,2,K,3,A,4
119 C$="[176][192][192][192][192][192][192][174][157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221]"
121 C$=C$+     "[157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221]"
123 C$=C$+"[157][157][157][157][157][157][157][157][173][192][192][192][192][192][192][189]"
124 :
125 REM========SHUFFLE & DEAL======
126 :
127 FORJ=0TONC-1:S(J)=J:NEXT:FORJ=0TONC-2:J%=J+INT(RND(0)*(NC-J)):
128 TEMP=S(J):S(J)=S(J%):S(J%)=TEMP:NEXT
129 K=0:FORI=1TO4:FORJ=1TO13:H(I,J)=S(K):K=K+1:NEXT:NEXT:RETURN
130 :
131 REM ======SUITS,VALUES,GRAPHICS===
132 :
133 FORI=1TO13:SU=(INT(H(R1,I)/13)):T=13*INT(H(R1,I)/13)
134 DE$=CO$(SU)+VA$(H(R1,I)-T):HC=HC+P(H(R1,I)-T)
135 DF$=DE$+S$(SU):D$(I)=C$+"[145][145][145][145][145][145][157][157][157][157][157][157][157]"+DF$:NEXT:RETURN
179 :
180 REM========SHELL-METZNER SORT======
190 :
192 M=N
194 M=INT(M/2):IFM=0THEN208
196 J=1:K=N-M
198 I=J
200 L=I+M
202 IF H(R1,I)<H(R1,L)THENT=H(R1,I):H(R1,I)=H(R1,L):H(R1,L)=T:I=I-M:IFI>0THEN200
204 J=J+1:IFJ>K THEN194
206 GOTO198
207 NEXT
208 RETURN
397 :
398 REM========START OF PROGRAM=======
399 :
400 POKE53280,1:POKE53281,1:PRINTCHR$(8);CHR$(142)
401 PRINT"[147][144]           [193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]"
402 PRINT"           [211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]"
403 PRINT"[144]                BRIDGE:    "
404 PRINT "             A SIMULATION  "
406 PRINT"              OF THE DEAL   "
407 PRINT"           [218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
408 PRINT"[144]           [216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216]"
409 :
410 GOSUB111:REM==SET UP AND FIRST DEAL
411 :
412 PRINT"[147][144]           [193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]"
413 PRINT"           [211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]"
414 PRINT"[144]              INCLUDING    "
415 PRINT "              A COUNT OF   "
416 PRINT"             HONOR POINTS  "
417 PRINT"           [218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
418 PRINT"[144]           [216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216]"
420 :
421 REM =====SORTS & PRINTS HANDS=====
422 :
440 N=13:R1=1:GOSUB192
442 HC=0:GOSUB133
449 PRINT"[144][147]               HAND";R1                     :Y=6:X3=0:X=X3
450 K1=1:FORJ=1TO2:FORI=1TO7:W$=D$(K1):GOSUB66:K1=K1+1
452 X=X+4
456 NEXT:Y=Y+4
458 IFINT(J/2)=J/2THEN460
459 X=9:NEXT
460 X=0:NEXT
462 PRINT"[144]           HONOR COUNT";HC
463 IF R1=4THEN476
464 R1=R1+1:GOSUB192
466 HC=0:GOSUB 133
468 GOSUB58
472 ONR1-1GOTO449,449,474
474 GOSUB127:GOTO449
476 GOSUB58
478 X=14:Y=13:W$="        [157][157][157][157][157][157][157][157] AGAIN? [157][157][157][157][157][157][157][157] (Y/N)  ":GOSUB66
480 GOSUB62
482 IFA$="N"THEN60000
484 GOTO440
500 END
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IF ER<>63 THEN PRINT"[147]":END
60020 A$="HELLO CONNECT":Q$=CHR$(34)
60030 PRINT"[147]LOAD"Q$A$Q$",8"
60040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END